Virtual Sex With Asia/Virtual Sex With Asia.iso/pc/asia.dxr/Internal_5_--• movie scripts, interaction-related1.ls

Text File | 1997-09-03 | 6.7 KB | 216 lines

global gMovie1TimeCodes, gMovie2TimeCodes, gMovie3TimeCodes, gMovie4TimeCodes, gMovie5TimeCodes, gMovie6TimeCodes, gMovie7TimeCodes, gMovie8TimeCodes, gMovie9TimeCodes, gWhichMovie, gWhichClip, gAutoInUse, gOldMovie, gOldClip, gMarkers, gMovieSprite, gWhichCamera, gPanoMovieID, gReturning, gIntroPlayed, gFromFullScreen, gFloatingSprite, gAutomated, gRecording, gPlaying, gStaring, gMoviePauseState, gFullScreen, gSliderSprite, gCode, gWeapon, gOldWhichMovie, gOldWhichClip, gLoadedTimeCodes, gDontMessWithTheSlider, gStopTime, gStartTime, gDontReturnTo0, gNew, gLastGirl, gLastClip, gMachineType, gFasterMachine, gX, gStartOrStop, gMarker0, gUpdateFrame, gOldQuinCast, gQuinSprite, gParticipate, gTalk, gTalking, gTalkLoop, gPosing, gStartTime1, gStartTime2, gStopTime1, gStopTime2

on removeFloating
  deactivate([gFloatingSprite])
  set the visible of sprite gFloatingSprite to 0
  updateStage()
end

on legalButton whichSprite, maintainScript
  if maintainScript <> 1 then
    set the timeoutScript to "nothing"
  end if
  return 1
end

on selectGirl whichSprite, updateIt, dontRestore
  if gStaring > 0 then
    exit
  end if
  if updateIt > 0 then
    exit
  end if
  figureItOutLight(whichSprite = 22)
  set theMovieTime to the movieTime of sprite gMovieSprite
  set whichClass to class()
  set whichX to getAt(gWhichMovie, whichClass)
  set whichY to getAt(gWhichClip, whichClass)
  set whichZ to getAt(gWhichCamera, whichClass)
  set xTime to [-100, -100, -100, -100]
  do("set xTime=getAt ( gMovie" & whichX & "TimeCodes, whichY )")
  case count(xTime) < 4 of
    1:
      append(xTime, getAt(xTime, 1))
      append(xTime, getAt(xTime, 2))
  end case
  case whichZ of
    "B":
      set xTime to [getAt(xTime, 3), getAt(xTime, 4), getAt(xTime, 1), getAt(xTime, 2)]
  end case
  case (theMovieTime < (getAt(xTime, 1) + 6)) or (theMovieTime > getAt(xTime, 3)) of
    1:
      set theMovieTime to getAt(xTime, 1) + 6
  end case
  storeStopTime(theMovieTime, 1, 1)
  returnSlider()
  set whichClass to class()
  case whichSprite of
    22:
      restoreGPreviousClip(dontRestore)
    23:
      case whichClass of
        1:
          restoreGPreviousClip(dontRestore)
          case gFullScreen of
            0:
              set returnFrame to the frame
              puppetSprite(46, 0)
              puppetSprite(47, 0)
              go("hand1")
              puppetSprite(46, 1)
              go(returnFrame)
          end case
      end case
    24:
      case whichClass of
        1:
          restoreGPreviousClip(dontRestore)
          case gFullScreen of
            0:
              set returnFrame to the frame
              puppetSprite(46, 0)
              puppetSprite(47, 0)
              go("vibrator1")
              puppetSprite(47, 1)
              go(returnFrame)
          end case
      end case
  end case
  setAt(gParticipate, whichClass, 1)
  viewControls(1)
  restoreControl()
  set gAutomated to 0
  flashQD(whichSprite)
  if gPosing < 1 then
    setMovieRate(0.0)
    updateStage()
    set the loc of sprite gMovieSprite to the loc of sprite gMovieSprite
    set the volume of sprite gMovieSprite to the soundLevel * 28
    go(the frame)
  end if
  if whichSprite <= 17 then
    set whichGirl to whichSprite
  else
    set whichGirl to whichSprite - 17
  end if
  updateGOldMovie(whichClass)
  setAt(gOldMovie, whichClass, getAt(gWhichMovie, whichClass))
  setAt(gWhichMovie, whichClass, whichGirl + ((whichClass = 1) * 2))
  checkGWhichMovie(whichClass, 8)
  if (gStartTime < gStartTime1) or (gStartTime > gStopTime1) then
    storeAndGo(whichClass, 0, 1)
  end if
  if (gStopTime < gStartTime1) or (gStopTime > gStopTime1) then
    storeAndGo(whichClass, 0, 1)
  end if
  set the visible of sprite gSliderSprite to 1
  set the visible of sprite 32 to 1
  puppetSprite(32, 0)
  puppetSprite(33, 0)
  puppetSprite(34, 0)
  set gStaring to 0
  cursor(4)
  case whichClass of
    1:
      case gIntroPlayed of
        0:
          case gFullScreen of
            0:
              set randomList to [7]
              case whichGirl of
                7:
                  set randomList to [2, 3, 4, 8, 9]
                otherwise:
                  set randomList to [3, 4, 8, 9]
              end case
              set maxCount to count(randomList)
              set whichPhrase to getAt(randomList, random(maxCount))
              talk(whichPhrase, 0)
          end case
          set gIntroPlayed to 1
      end case
  end case
  storeAndGo(whichClass, 1)
  updateGOldMovie(class())
end

on selectClip whichSprite
  if gStaring > 0 then
    exit
  end if
  updateGOldMovie(class())
  storeStopTime(-1, 1, 2)
  returnSlider()
  set the volume of sprite gMovieSprite to the soundLevel * 28
  set whichClass to class()
  setAt(gParticipate, whichClass, 1)
  setProp(11, 12, "visibility", 1)
  set the visible of sprite 22 to 1
  setProp(24, 26, "visibility", 1)
  set the visible of sprite 32 to 1
  restoreControl()
  set gAutomated to 0
  flashQD(whichSprite)
  setMovieRate(0.0)
  updateStage()
  set the loc of sprite gMovieSprite to the loc of sprite gMovieSprite
  set the volume of sprite gMovieSprite to the soundLevel * 28
  go(the frame)
  set whichClip to whichSprite - 23
  set the visible of sprite gSliderSprite to 1
  set the visible of sprite 32 to 1
  set gStaring to 0
  puppetSprite(32, 0)
  puppetSprite(33, 0)
  puppetSprite(34, 0)
  advanceClip(whichClip, whichClass)
  updateGOldMovie(whichClass)
end

on flashQD whichSprite
  if QT(gMovieSprite) then
    set gMoviePauseState to the movieRate of sprite gMovieSprite
  else
    set gMoviePauseState to 0
  end if
end

on inverseFlashQD whichSprite
  figureItOutLight(whichSprite = 22)
  set theMovieTime to the movieTime of sprite gMovieSprite
  set whichClass to class()
  set whichX to getAt(gWhichMovie, whichClass)
  set whichY to getAt(gWhichClip, whichClass)
  set whichZ to getAt(gWhichCamera, whichClass)
  set xTime to [-100, -100, -100, -100]
  do("set xTime=getAt ( gMovie" & whichX & "TimeCodes, whichY )")
  case count(xTime) < 4 of
    1:
      append(xTime, getAt(xTime, 1))
      append(xTime, getAt(xTime, 2))
  end case
  case whichZ of
    "B":
      set xTime to [getAt(xTime, 3), getAt(xTime, 4), getAt(xTime, 1), getAt(xTime, 2)]
  end case
  case (theMovieTime < (getAt(xTime, 1) + 6)) or (theMovieTime > getAt(xTime, 3)) of
    1:
      set theMovieTime to getAt(xTime, 1) + 6
  end case
  storeStartTime(theMovieTime, 1, 5)
  if QT(gMovieSprite) then
    set gMoviePauseState to the movieRate of sprite gMovieSprite
  else
    set gMoviePauseState to 0
  end if
end

on flashQD2 whichSprite
  setProp(26, 29, "puppet", 0)
  go(the frame)
  puppetSprite(whichSprite, 1)
  set the ink of sprite whichSprite to 0
  set the backColor of sprite whichSprite to 0
  updateStage()
end